home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Flea.dxr / Internal_7_tab hot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  77 lines
  1. property spriteNum, row, accard
  2. global tableau, equal, currentsel, getlist, godlist, basecard
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   accard = spriteNum - 9
  7. end
  8.  
  9. on determinerow me
  10.   if spriteNum = 31 then
  11.     return #one
  12.   else
  13.     if spriteNum = 32 then
  14.       return #two
  15.     else
  16.       if spriteNum = 33 then
  17.         return #three
  18.       else
  19.         if spriteNum = 34 then
  20.           return #four
  21.         else
  22.           if spriteNum = 35 then
  23.             return #five
  24.           else
  25.             if spriteNum = 36 then
  26.               return #six
  27.             else
  28.               if spriteNum = 37 then
  29.                 return #seven
  30.               else
  31.                 if spriteNum = 38 then
  32.                   return #eight
  33.                 else
  34.                   if spriteNum = 39 then
  35.                     return #nine
  36.                   end if
  37.                 end if
  38.               end if
  39.             end if
  40.           end if
  41.         end if
  42.       end if
  43.     end if
  44.   end if
  45. end
  46.  
  47. on mouseEnter me
  48.   if getlist <> VOID then
  49.     if sprite(accard).member = member("empty", "playing cards") then
  50.       equal = 1
  51.       currentsel = accard
  52.       godlist = tableau[row]
  53.     else
  54.       if sprite(accard).member <> member("empty", "playing cards") then
  55.         if ((getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue - 1)) or (getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue + 1))) and (getlist.getlastcard().suit = tableau[row].getlastcard().suit) then
  56.           equal = 1
  57.           currentsel = accard
  58.           godlist = tableau[row]
  59.         else
  60.           if (((getlist.getlastcard().rank = "king") and (tableau[row].getlastcard().rank = "ace")) or ((getlist.getlastcard().rank = "ace") and (tableau[row].getlastcard().rank = "king"))) and (getlist.getlastcard().suit = tableau[row].getlastcard().suit) then
  61.             equal = 1
  62.             currentsel = accard
  63.             godlist = tableau[row]
  64.           end if
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69.   put equal
  70. end
  71.  
  72. on mouseLeave me
  73.   equal = 0
  74.   currentsel = 0
  75.   godlist = VOID
  76. end
  77.